home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aai.d64 / see jj hires (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  87 lines
  1. 100 REM
  2. 110 REM "CSLIDE" SLIDESHOW PROGRAM
  3. 120 REM MARC MOORCROFT
  4. 130 REM 73 ST. GEORGE ST.  #380
  5. 140 REM TORONTO, ONTARIO   M5S 2E5
  6. 150 REM
  7. 160 REM BASED ON "COMPRESSOR" BY CHRIS
  8. 170 REM ZAMARA IN THE TRANSACTOR
  9. 180 REM VOLUME 6 ISSUE 4.
  10. 190 REM
  11. 200 POKE55,0:POKE56,88:POKE51,0:POKE52,88
  12. 210 FORT=22528TO22607:READA:POKET,A:NEXT
  13. 220 DIM F$(144)
  14. 230 PRINT"[147]   CSLIDESHOW[146] BY MARC MOORCROFT"
  15. 240 PRINT"INSERT PICTURES DISK AND HIT RETURN"
  16. 250 GETA$:IFA$<>CHR$(13)THEN250
  17. 260 PRINT"READING DIRECTORY"
  18. 270 OPEN1,8,0,"$0:JJ*"
  19. 280 GET#1,A$,A$,A$,A$,A$,A$:NF=0
  20. 290 GET#1,A$:IFA$<>""THEN290
  21. 300 GET#1,A$,A$,A$,A$
  22. 310 GET#1,A$:IFA$=" "ORA$=""THEN310
  23. 320 IFA$<>CHR$(34)THENCLOSE1:GOTO390
  24. 330 B$=""
  25. 340 GET#1,A$:IFA$=CHR$(34)THEN360
  26. 350 B$=B$+A$:GOTO340
  27. 360 B$=MID$(B$,3):F$(NF)=B$:PRINTB$:NF=NF+1
  28. 370 GET#1,A$:IFA$<>""THEN370
  29. 380 GOTO300
  30. 390 NF=NF-1:IFNF<0THENRUN
  31. 400 PRINT"[147]MOVE UP AND DOWN THE LIST WITH THE"
  32. 410 PRINT"CRSR[146] KEYS. HIT RETURN[146] TO SEE A"
  33. 420 PRINT"PICTURE. HIT Q[146] TO QUIT, AND"
  34. 430 PRINT"D[146] FOR ANOTHER DISK"
  35. 440 PRINT"WHILE VIEWING A PICTURE, PRESS S[146] TO"
  36. 450 PRINT"SAVE AN UNCOMPRESSED DOODLE, ANY OTHER"
  37. 460 PRINT"KEY TO RETURN TO PICTURE MENU."
  38. 470 PRINT"PRESS RETURN[146] TO START"
  39. 480 FORT=1TO10:GETA$:NEXT:LV=-1
  40. 490 GETA$:IFA$<>CHR$(13)THEN490
  41. 500 PRINT"[147]";:DP=0:SP=0:FORT=0TO20:PRINTF$(T):NEXT
  42. 510 PRINT"";
  43. 520 PRINTTAB(14)"<--":PRINT"[145]";:GOTO530
  44. 530 GETA$:IFA$=""THEN530
  45. 540 IFA$=""THENGOSUB600:GOTO520
  46. 550 IFA$="[145]"THENGOSUB670:GOTO520
  47. 560 IFA$="D"THENCLR:GOTO220
  48. 570 IFA$=CHR$(13)THEN730
  49. 580 IFA$="Q"THENPRINT"[147]":END
  50. 590 GOTO530
  51. 600 PRINTTAB(14)"   ":PRINT"[145]";
  52. 610 IFDP=NFTHENRETURN
  53. 620 DP=DP+1
  54. 630 IFSP<20THENPRINT"";:SP=SP+1:RETURN
  55. 640 PRINT"[145][145][145]"F$(DP)
  56. 650 PRINT"                "
  57. 660 PRINT"";:RETURN
  58. 670 PRINTTAB(14)"   ":PRINT"[145]";
  59. 680 IFDP=0THENRETURN
  60. 690 DP=DP-1
  61. 700 IFSP>0THENPRINT"[145]";:SP=SP-1:RETURN
  62. 710 PRINT"[157][148]":POKE218,132:PRINT"                "
  63. 720 PRINT""F$(DP):PRINT"";:RETURN
  64. 730 IFLV=DPTHENPOKE56576,2:POKE53272,120:POKE53265,59:GOTO770
  65. 740 LV=DP:OPEN8,8,0,"JJ"+F$(DP)
  66. 750 POKE56576,2:POKE53272,120:POKE53265,59
  67. 760 SYS22528
  68. 770 GETA$:IFA$=""THEN770
  69. 780 POKE53272,20:POKE53265,27:POKE56576,3
  70. 790 IFA$<>"S"THEN530
  71. 800 PRINT"[147]SAVE NORMAL DOODLE FILE (Y/N)?"
  72. 810 GETA$:IFA$="N"THEN500
  73. 820 IFA$<>"Y"THEN810
  74. 830 CC=PEEK(646):POKE646,PEEK(53281)
  75. 840 M1=57812:M2=62954
  76. 850 PRINT"SYSM1"CHR$(34)"DD"F$(DP)CHR$(34)",8:POKE193,0:POKE194,92:";
  77. 860 PRINT"POKE174,0:POKE175,128:SYSM2"
  78. 870 PRINT"GOTO500"
  79. 880 POKE646,CC:POKE631,13:POKE632,13:POKE198,2:END
  80. 890 REM ***  UNCOMPRESSOR ML  ***
  81. 900 DATA162,8,32,198,255,32,228,255,133,251,32,228,255,133,252,32,183
  82. 910 DATA255,208,51,32,228,255,201,254,240,13,160,0,145,251,230,251,208
  83. 920 DATA2,230,252,24,144,231,32,228,255
  84. 930 DATA72,32,228,255,170,168,104,136,145,251,136,192,255,208,249,138,24
  85. 940 DATA101,251,133,251,144,2,230,252
  86. 950 DATA24,144,200,32,204,255,169,8,32,195,255,96
  87.